home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tu.d64 / yesterday.c (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  6KB  |  226 lines
  1. 99 POKE53280,0:POKE53281,0
  2. 100 PRINT"[147]YESTERDAY"
  3. 110 L1=54272:L2=54279:L3=54286
  4. 120 H1=L1+1:H2=L2+1:H3=L3+1
  5. 130 V1=L1+4:V2=L2+4:V3=L3+4
  6. 140 POKE 54296,15
  7. 150 POKE V1+1,9:POKE V2+2,16
  8. 160 POKE V2+1,96:POKE V2+2,36
  9. 170 POKE V3+1,18:POKE V3+2,170
  10. 180 T=TI
  11. 200 POKE V1,32:POKE V2,32:POKE V3,32
  12. 210 READ S:IF S=0 GOTO 290
  13. 220 READ X1,Y1,X2,Y2,X3,Y3
  14. 230 IF X1 THEN POKE H1,X1:POKE L1,Y1:POKE V1,33
  15. 240 IF X2 THEN POKE H2,X2:POKE L2,Y2:POKE V2,33
  16. 250 IF X3 THEN POKE H3,X3:POKE L3,Y3:POKE V3,33
  17. 260 T=T+S*1.45
  18. 270 IF T>TI GOTO 270
  19. 280 GOTO 200
  20. 290 FORJ=L1 TO 54296:POKE J,0:NEXT J
  21. 300 REM DURATION,HI-1,LO-1,..,HI-3,LO-3
  22. 310 DATA 10,25,177,17,37,14,107
  23. 320 DATA 10,22,227,0,0,0,0
  24. 330 DATA 40,22,227,0,0,0,0
  25. 340 DATA 20,11,114,0,0,0,0
  26. 350 DATA 20,19,63,16,47,10,205
  27. 360 DATA 10,28,214,0,0,0,0
  28. 370 DATA 10,32,94,0,0,0,0
  29. 380 DATA 10,36,85,21,154,25,177
  30. 390 DATA 10,38,126,0,0,0,0
  31. 400 DATA 10,43,52,0,0,0,0
  32. 410 DATA 10,45,198,0,0,0,0
  33. 420 DATA 15,43,52,28,214,22,227
  34. 430 DATA 5,38,126,0,0,0,0
  35. 440 DATA 40,38,52,0,0,0,0
  36. 450 DATA 20,8,147,0,0,0,0
  37. 460 DATA 20,22,227,19,63,7,163
  38. 470 DATA 10,38,126,0,0,0,0
  39. 480 DATA 10,38,126,0,0,0,0
  40. 490 DATA 10,34,75,21,154,17,37
  41. 500 DATA 10,30,141,0,0,0,0
  42. 510 DATA 10,28,214,0,0,0,0
  43. 520 DATA 10,25,97,0,0,0,0
  44. 530 DATA 20,30,141,22,227,17,37
  45. 540 DATA 10,28,214,0,0,0,0
  46. 550 DATA 30,28,214,0,0,0,0
  47. 560 DATA 20,25,97,17,37,10,205
  48. 570 DATA 20,22,227,19,63,9,159
  49. 580 DATA 10,28,214,19,63,17,37
  50. 590 DATA 40,25,177,19,63,16,47
  51. 600 DATA 10,19,63,0,0,0,0
  52. 610 DATA 20,22,227,19,63,15,70
  53. 620 DATA 10,28,214,22,227,17,37
  54. 630 DATA 50,28,214,22,227,17,37
  55. 635 REM
  56. 640 DATA 10,25,177,17,37,14,107
  57. 650 DATA 10,22,227,0,0,0,0
  58. 660 DATA 40,22,227,0,0,0,0
  59. 670 DATA 20,11,114,0,0,0,0
  60. 680 DATA 20,19,63,16,47,10,205
  61. 690 DATA 10,28,214,0,0,0,0
  62. 700 DATA 10,32,94,0,0,0,0
  63. 710 DATA 10,36,85,21,154,25,177
  64. 720 DATA 10,38,126,0,0,0,0
  65. 730 DATA 10,43,52,0,0,0,0
  66. 740 DATA 10,45,198,0,0,0,0
  67. 750 DATA 15,43,52,28,214,22,227
  68. 760 DATA 5,38,126,0,0,0,0
  69. 770 DATA 40,38,52,0,0,0,0
  70. 780 DATA 20,8,147,0,0,0,0
  71. 790 DATA 20,22,227,19,63,7,163
  72. 800 DATA 10,38,126,0,0,0,0
  73. 810 DATA 10,38,126,0,0,0,0
  74. 820 DATA 10,34,75,21,154,17,37
  75. 830 DATA 10,30,141,0,0,0,0
  76. 840 DATA 10,28,214,0,0,0,0
  77. 850 DATA 10,25,97,0,0,0,0
  78. 860 DATA 20,30,141,22,227,17,37
  79. 870 DATA 10,28,214,0,0,0,0
  80. 880 DATA 30,28,214,0,0,0,0
  81. 890 DATA 20,25,97,17,37,10,205
  82. 900 DATA 20,22,227,19,63,9,159
  83. 910 DATA 10,28,214,19,63,17,37
  84. 920 DATA 40,25,177,19,63,16,47
  85. 930 DATA 10,19,63,0,0,0,0
  86. 940 DATA 20,22,227,19,63,15,70
  87. 950 DATA 10,28,214,22,227,17,37
  88. 960 DATA 50,28,214,22,227,17,37
  89. 965 REM
  90. 970 DATA 40,28,214,19,63,16,47
  91. 980 DATA 40,28,214,21,154,18,42
  92. 990 DATA 20,38,126,28,214,22,227
  93. 1000 DATA 20,43,52,34,75,25,177
  94. 1010 DATA 20,45,198,38,126,30,141
  95. 1020 DATA 10,43,52,28,214,22,227
  96. 1030 DATA 10,38,126,0,0,0,0
  97. 1040 DATA 30,43,52,30,141,25,177
  98. 1050 DATA 10,38,126,0,0,0,0
  99. 1060 DATA 20,34,75,30,141,21,151
  100. 1070 DATA 20,38,126,0,0,0,0
  101. 1080 DATA 80,28,214,22,227,17,37
  102. 1085 REM
  103. 1090 DATA 40,28,214,19,63,16,47
  104. 1100 DATA 40,28,214,21,154,18,42
  105. 1110 DATA 20,38,126,28,214,22,227
  106. 1120 DATA 20,43,52,34,75,25,177
  107. 1130 DATA 20,45,198,38,126,30,141
  108. 1140 DATA 10,43,52,28,214,22,227
  109. 1150 DATA 10,38,126,0,0,0,0
  110. 1160 DATA 30,43,52,30,141,25,177
  111. 1170 DATA 10,38,126,0,0,0,0
  112. 1180 DATA 20,34,75,30,141,21,151
  113. 1190 DATA 20,43,52,0,0,0,0
  114. 1200 DATA 20,45,198,22,227,11,114
  115. 1210 DATA 20,34,75,0,0,0,0
  116. 1220 DATA 20,30,141,0,0,0,0
  117. 1230 DATA 20,28,214,0,0,0,0
  118. 1235 REM
  119. 1240 DATA 10,25,177,17,37,14,107
  120. 1250 DATA 10,22,227,0,0,0,0
  121. 1260 DATA 40,22,227,0,0,0,0
  122. 1270 DATA 20,11,114,0,0,0,0
  123. 1280 DATA 20,19,63,16,47,10,205
  124. 1290 DATA 10,28,214,0,0,0,0
  125. 1300 DATA 10,32,94,0,0,0,0
  126. 1310 DATA 10,36,85,21,154,25,177
  127. 1320 DATA 10,38,126,0,0,0,0
  128. 1330 DATA 10,43,52,0,0,0,0
  129. 1340 DATA 10,45,198,0,0,0,0
  130. 1350 DATA 15,43,52,28,214,22,227
  131. 1360 DATA 5,38,126,0,0,0,0
  132. 1370 DATA 40,38,52,0,0,0,0
  133. 1380 DATA 20,8,147,0,0,0,0
  134. 1390 DATA 20,22,227,19,63,7,163
  135. 1400 DATA 10,38,126,0,0,0,0
  136. 1410 DATA 10,38,126,0,0,0,0
  137. 1420 DATA 10,34,75,21,154,17,37
  138. 1430 DATA 10,30,141,0,0,0,0
  139. 1440 DATA 10,28,214,0,0,0,0
  140. 1450 DATA 10,25,97,0,0,0,0
  141. 1460 DATA 20,30,141,22,227,17,37
  142. 1470 DATA 10,28,214,0,0,0,0
  143. 1480 DATA 30,28,214,0,0,0,0
  144. 1490 DATA 20,25,97,17,37,10,205
  145. 1500 DATA 20,22,227,19,63,9,159
  146. 1510 DATA 10,28,214,19,63,17,37
  147. 1520 DATA 40,25,177,19,63,16,47
  148. 1530 DATA 10,19,63,0,0,0,0
  149. 1540 DATA 20,22,227,19,63,15,70
  150. 1550 DATA 10,28,214,22,227,17,37
  151. 1560 DATA 50,28,214,22,227,17,37
  152. 1565 REM
  153. 1570 DATA 40,28,214,19,63,16,47
  154. 1580 DATA 40,28,214,21,154,18,42
  155. 1590 DATA 20,38,126,28,214,22,227
  156. 1600 DATA 20,43,52,34,75,25,177
  157. 1610 DATA 20,45,198,38,126,30,141
  158. 1620 DATA 10,43,52,28,214,22,227
  159. 1630 DATA 10,38,126,0,0,0,0
  160. 1640 DATA 30,43,52,30,141,25,177
  161. 1650 DATA 10,38,126,0,0,0,0
  162. 1660 DATA 20,34,75,30,141,21,151
  163. 1670 DATA 20,38,126,0,0,0,0
  164. 1680 DATA 80,28,214,22,227,17,37
  165. 1685 REM
  166. 1690 DATA 40,28,214,19,63,16,47
  167. 1700 DATA 40,28,214,21,154,18,42
  168. 1710 DATA 20,38,126,28,214,22,227
  169. 1720 DATA 20,43,52,34,75,25,177
  170. 1730 DATA 20,45,198,38,126,30,141
  171. 1740 DATA 10,43,52,28,214,22,227
  172. 1750 DATA 10,38,126,0,0,0,0
  173. 1760 DATA 30,43,52,30,141,25,177
  174. 1770 DATA 10,38,126,0,0,0,0
  175. 1780 DATA 20,34,75,30,141,21,151
  176. 1785 REM
  177. 1790 DATA 20,43,52,0,0,0,0
  178. 1800 DATA 20,45,198,22,227,11,114
  179. 1810 DATA 20,34,75,0,0,0,0
  180. 1820 DATA 20,30,141,0,0,0,0
  181. 1830 DATA 20,28,214,0,0,0,0
  182. 1835 REM
  183. 1840 DATA 10,25,177,17,37,14,107
  184. 1850 DATA 10,22,227,0,0,0,0
  185. 1860 DATA 40,22,227,0,0,0,0
  186. 1870 DATA 20,11,114,0,0,0,0
  187. 1880 DATA 20,19,63,16,47,10,205
  188. 1890 DATA 10,28,214,0,0,0,0
  189. 1900 DATA 10,32,94,0,0,0,0
  190. 1910 DATA 10,36,85,21,154,25,177
  191. 1920 DATA 10,38,126,0,0,0,0
  192. 1930 DATA 10,43,52,0,0,0,0
  193. 1935 REM
  194. 1940 DATA 10,45,198,0,0,0,0
  195. 1950 DATA 15,43,52,28,214,22,227
  196. 1960 DATA 5,38,126,0,0,0,0
  197. 1970 DATA 40,38,52,0,0,0,0
  198. 1980 DATA 20,8,147,0,0,0,0
  199. 1990 DATA 20,22,227,19,63,7,163
  200. 2000 DATA 10,38,126,0,0,0,0
  201. 2010 DATA 10,38,126,0,0,0,0
  202. 2020 DATA 10,34,75,21,154,17,37
  203. 2030 DATA 10,30,141,0,0,0,0
  204. 2040 DATA 10,28,214,0,0,0,0
  205. 2050 DATA 10,25,97,0,0,0,0
  206. 2060 DATA 20,30,141,22,227,17,37
  207. 2070 DATA 10,28,214,0,0,0,0
  208. 2080 DATA 30,28,214,0,0,0,0
  209. 2090 DATA 20,25,97,17,37,10,205
  210. 2100 DATA 20,22,227,19,63,9,159
  211. 2110 DATA 10,28,214,19,63,17,37
  212. 2120 DATA 40,25,177,19,63,16,47
  213. 2130 DATA 10,19,63,0,0,0,0
  214. 2140 DATA 20,22,227,19,63,15,70
  215. 2150 DATA 10,28,214,22,227,17,37
  216. 2160 DATA 50,28,214,22,227,17,37
  217. 2165 REM
  218. 2170 DATA 20,22,227,17,37,14,107
  219. 2180 DATA 20,28,214,0,0,0,0
  220. 2190 DATA 20,25,177,19,63,12,216
  221. 2200 DATA 20,19,63,0,0,0,0
  222. 2210 DATA 20,22,227,19,63,15,70
  223. 2220 DATA 10,28,214,22,227,17,37
  224. 2230 DATA 60,28,214,22,227,17,37
  225. 10000 DATA 0
  226.